home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / amms20d.lha / amms / mbeigene / Demon / vak / VAKMain.prg < prev   
Text File  |  1995-01-08  |  14KB  |  717 lines
  1. ;                           VAK - Main-Programm
  2. ; $VER: 3.10
  3. ;
  4. ; (c) by Demon Driver `93 - `xx
  5. ;
  6. ; AMMS v1.00 (c) by Adrock & Fastman `89 - `93
  7. ;
  8.  
  9. Var:
  10. VERSION="3.10"
  11. VAKAN=0
  12. POS=1
  13. LAS=1
  14. QuitT="T"
  15.  
  16. ReadPrefs:
  17. _gosub Check_VK
  18. NEWLI=0
  19. _disk execute/keep VAK:Sets/AllVK.set
  20. _disk execute/keep VAK:Sets/'{language}'/MainMenu.set
  21. _gosub Check_Opt
  22. _goto MainMask
  23.  
  24. Check_Opt:
  25. _echo "#reset#"
  26. _parse VAK p0 N USER
  27. _if "'O1'" == "T" then _goto Own_Show
  28. _if "'O2'" == "T" then _goto Own_Edit
  29. _if "'O3'" == "T" then _goto Own_Delete
  30. _if "'O4'" == "T" then _goto All_List_View
  31. _if "'O5'" == "T" then _goto Help
  32. _if "'O6'" == "T" then _goto FastNew
  33. _if "'USER'" == "" then _return
  34. _gosub Cut_Name
  35. _goto Get_Username
  36.  
  37. Cut_Name:
  38. _extern VAK:VAK.exe -cs "'USER'"
  39. _disk execute/keep T:Username.tmp
  40. _gosub RAW_Show_User
  41. QuitT="F"
  42. _goto Quit
  43.  
  44. MainMask:
  45. _if/integer NEWLI == 1 then _goto ReadPrefs
  46. Mode="Main Menu"
  47. _gosub UpLines
  48. _disk text VAK:Mask/'{language}'/Main.mas
  49. _gosub Select
  50. _goto MainMenu
  51.  
  52. UpLines:
  53. _echo/nolf "#reset##cls##home#"
  54. _echo "#farbe 0,7#{LIMSPACEON}{TAB 59}{LIMSPACEOFF}#SETPOS 2,0##farbe 0,4#{LIMSPACEON}{TAB 59}{LIMSPACEOFF}#reset#"
  55. _echo/nolf "#SETPOS 1,0##farbe 0,7#User : {name 20} Timeleft : {onlineleft 3}   Level : {level 4}#reset#"
  56. _echo/nolf "#SETPOS 2,0##farbe 3,4#Mode : 'MODE' #SETPOS 2,33# VKs : 'VAKAN'#SETPOS 2,48# VK : 'VAKTR'#reset#"
  57. _echo/nolf "#SETPOS 1,60#      VAK v'VERSION'#SETPOS 2,60#    (c) by DD `94#SETPOS 4,0#"
  58. _return
  59.  
  60. ; ------------------------------------------------------------------------
  61.  
  62. VorMain:
  63. _if "'O1'" == "T" then _goto Quit
  64. _if "'O2'" == "T" then _goto Quit
  65. _if "'O3'" == "T" then _goto Quit
  66. _if "'O4'" == "T" then _goto Quit
  67. _if "'O5'" == "T" then _goto Quit
  68. _gosub DeSelect
  69. _gosub Select
  70. _goto MainMenu
  71.  
  72. MainMenu:
  73. DUMMY=CY+3
  74. _echo/nolf "#reset##SETPOS 'DUMMY','CX'#"
  75. _menu/nopmsgs/noecho "" -
  76.  "Q" Quit -
  77. "^M" SelectPoint -
  78. "^R" MainMask -
  79. "^1" UP -
  80. "^2" DOWN -
  81. "^3" LEFT -
  82. "^4" RIGHT -
  83.  "S" Own_Show -
  84.  "E" Own_Edit -
  85.  "D" Own_Delete -
  86.  "L" All_List -
  87.  "V" All_View -
  88.  "B" All_List_View -
  89.  "A" About -
  90.  "H" Help -
  91.  "Z" SysOp
  92.  
  93. ; ----------------------------
  94.  
  95. Quit:
  96. _if "'QuitT'" == "T" then _gosub Quit1
  97. _goto end
  98.  
  99. Quit1:
  100. Mode="Quit"
  101. _gosub UpLines
  102. _echo "^J^J^J                       #vfarbe 4#............................."
  103. _echo "                       : #reset#Thanx for using VAK v'VERSION' #vfarbe 4#:"
  104. _echo "                       :       #reset#(c) by DD `93       #vfarbe 4#:"
  105. _echo "                       :...........................:#reset#^J^J^J"
  106. _wait 1
  107. _return
  108.  
  109. About:
  110. LAS=POS
  111. POS=8
  112. Mode="About"
  113. _gosub UpLines
  114. _disk text VAK:Text/'{language}'/About.txt
  115. _gosub Key_Wait
  116. _goto MainMask
  117.  
  118. Help:
  119. LAS=POS
  120. POS=7
  121. PAGE=1
  122. _gosub Help_Read
  123. _if "'O5'" == "T" then _goto Quit
  124. _goto MainMask
  125.  
  126. ; ---------------------------
  127.  
  128. Own_Show:
  129. LAS=POS
  130. POS=2
  131. _if VAKTR == "No " then _goto VorMain
  132. _gosub Punkt_OwnShow
  133. _if "'O1'" == "T" then _goto Quit
  134. _goto MainMask
  135.  
  136. Own_Edit:
  137. LAS=POS
  138. POS=1
  139. _gosub Punkt_OwnEdit
  140. _if "'O2'" == "T" then _goto Quit
  141. _goto MainMask
  142.  
  143. Own_Delete:
  144. LAS=POS
  145. POS=3
  146. _if VAKTR == "No " then _goto VorMain
  147. _gosub Punkt_OwnDelete
  148. USER=
  149. USERNAME=
  150. _if "'O3'" == "T" then _goto Quit
  151. _goto MainMask
  152.  
  153. All_List:
  154. LAS=POS
  155. POS=4
  156. Mode="List all VKs"
  157. _gosub UpLines
  158. _disk text VAK:Text/VK-List.txt
  159. _gosub Key_Wait
  160. _goto MainMask
  161.  
  162. ; ---------------------------
  163.  
  164. All_View:
  165. LAS=POS
  166. POS=5
  167. Mode="Show VK of a User"
  168. _gosub UpLines
  169. _echo/nolf " Username : "
  170. _input/maxlength=20 Username
  171. _on error All_View_NoVAK
  172. _gosub RAW_Show_User
  173. _gosub Key_Wait
  174. _goto MainMask
  175.  
  176. All_View_NoVAK:
  177. _gosub UpLines
  178. _if {language} == "English" then _echo "                           This user have no VK"
  179. _if {language} == "Deutsch" then _echo "                         Dieser User hat keine VK"
  180. _gosub Key_Wait
  181. _goto MainMask
  182.  
  183. ; ----------------------------
  184.  
  185. All_List_View:
  186. LAS=POS
  187. POS=6
  188. AKT=1
  189. LET=1
  190. AX=0
  191. AY=4
  192. LX=0
  193. LY=4
  194. PAGE=1
  195. _gosub Punkt_All_List_View
  196. _if "'O4'" == "T" then _goto Quit
  197. _goto MainMask
  198.  
  199. ; ----------------------------
  200.  
  201. SelectPoint:
  202. _if/integer POS == 1 then _goto Own_Edit
  203. _if/integer POS == 2 then _goto Own_Show
  204. _if/integer POS == 3 then _goto Own_Delete
  205. _if/integer POS == 4 then _goto All_List
  206. _if/integer POS == 5 then _goto All_View
  207. _if/integer POS == 6 then _goto All_List_View
  208. _if/integer POS == 7 then _goto Help
  209. _if/integer POS == 8 then _goto About
  210. _if/integer POS == 9 then _goto Quit
  211. _goto MainMask
  212.  
  213. UP:
  214. _if/integer MPU'POS' == 0 then _goto MainMenu
  215. LAS=POS
  216. POS=MPU'LAS'
  217. _gosub DeSelect
  218. _gosub Select
  219. _goto MainMenu
  220.  
  221. DOWN:
  222. _if/integer MPD'POS' == 0 then _goto MainMenu
  223. LAS=POS
  224. POS=MPD'LAS'
  225. _gosub DeSelect
  226. _gosub Select
  227. _goto MainMenu
  228.  
  229. LEFT:_if/integer MPL'POS' == 0 then _goto MainMenu
  230. LAS=POS
  231. POS=MPL'LAS'
  232. _gosub DeSelect
  233. _gosub Select
  234. _goto MainMenu
  235.  
  236. RIGHT:
  237. _if/integer MPR'POS' == 0 then _goto MainMenu
  238. LAS=POS
  239. POS=MPR'LAS'
  240. _gosub DeSelect
  241. _gosub Select
  242. _goto MainMenu
  243.  
  244. ; ------------------------------------------------------------------------
  245.  
  246. Select:
  247. AKTX=MPX'POS'
  248. AKTY=MPY'POS'+3
  249. _echo/nolf "#SETPOS 'AKTY','AKTX'##invers#"
  250. DUMMY=MPN'POS'
  251. _echo/nolf "'DUMMY'"
  252. _return
  253.  
  254. DeSelect:
  255. AKTX=MPX'LAS'
  256. AKTY=MPY'LAS'+3
  257. _echo/nolf "#SETPOS 'AKTY','AKTX'##reset#"
  258. DUMMY=MPN'LAS'
  259. _echo/nolf "'DUMMY'"
  260. _return
  261.  
  262. ; ------------------------------------------------------------------------
  263.  
  264. Punkt_OwnShow:
  265. Mode="Show VK"
  266. _gosub UpLines
  267. _gosub RAW_show
  268. _gosub Key_Wait
  269. _return
  270.  
  271. ; ---------------------------
  272.  
  273. Punkt_OwnEdit:
  274. Mode="Edit VK"
  275. _gosub UpLines
  276. _if VAKTR == "Yes" then _gosub RAW_Show
  277. _echo/nolf "^J^J"
  278. _if {language} == "English" then _echo/nolf "  Really edit your VK : Y#left 1#"
  279. _if {language} == "Deutsch" then _echo/nolf "  Wirklich Deine VK editieren : J#left 1#"
  280. _menu/nopmsgs "" -
  281. "^M" Punkt_OwnEdit_Edit -
  282.  "J" Punkt_OwnEdit_Edit -
  283.  "Y" Punkt_OwnEdit_Edit -
  284.  "N" Punkt_OwnEdit_End
  285.  
  286. Punkt_OwnEdit_End:
  287. _return
  288.  
  289. Punkt_OwnEdit_Edit:
  290. _if VAKTR == "No " then _extern copy VAK:Sets/VK "mbudir:'{name}'/"
  291. _disk edit/lines=6 "mbudir:'{name}'/vk"
  292. TEST=VAKTR
  293. _gosub Check_VK
  294. _if VAKTR != TEST then _gosub Make_List
  295. _return
  296.  
  297. ; ---------------------------
  298.  
  299. Punkt_OwnDelete:
  300. Mode="Delete VK"
  301. _gosub UpLines
  302. _gosub RAW_show
  303. _echo "^J^J"
  304. _if {language} == "English" then _echo/nolf "   Really delete your VK : N#left 1#"
  305. _if {language} == "Deutsch" then _echo/nolf "   Wirklich Deine VK loeschen : N#left 1#"
  306. _menu/nopmsgs "" -
  307. "^M" Punkt_OwnDelete_end -
  308.  "N" Punkt_OwnDelete_end -
  309.  "Y" Punkt_OwnDelete_sure -
  310.  "J" Punkt_OwnDelete_sure
  311.  
  312. Punkt_OwnDelete_end:
  313. _return
  314.  
  315. Punkt_OwnDelete_sure:
  316. _extern delete >nil: "mbudir:'{name}'/VK"
  317. _gosub Check_VK
  318. _gosub Make_List
  319. _goto Punkt_OwnDelete_end
  320.  
  321. ; ------------------------------------------------------------------------
  322.  
  323. RAW_show:
  324. _if {language} == "English" then _echo "                                 Your VK :"
  325. _if {language} == "Deutsch" then _echo "                                Deine VK :"
  326. _echo "=============================================================================="
  327. _extern VAK:VAK.exe -sv "'{name}'"
  328. _echo "^J=============================================================================="
  329. _return
  330.  
  331. RAW_show_User:
  332. Mode="Show VK of 'Username'"
  333. _gosub UpLines
  334. _echo "=============================================================================="
  335. _extern VAK:VAK.exe -sv "'Username'"
  336. _echo "^J=============================================================================="
  337. _return
  338.  
  339. ; ------------------------------------------------------------------------
  340. ; ---------------------------- All-List-View -----------------------------
  341.  
  342. Punkt_All_List_View:
  343. _disk execute/keep VAK:sets/AllPage.set
  344. _disk execute/keep VAK:sets/Page'PAGE'.set
  345. _goto Punkt_All_List_View1
  346.  
  347. Punkt_All_List_View1:
  348. Mode="List/View  Page 'PAGE'/'PAGES'"
  349. _gosub UpLines
  350. DX=0
  351. DY=4
  352. DN=0
  353. _if/integer PAGE == PAGES then DO=PAGENR
  354. _if/integer PAGE < PAGES then DO=45
  355. _echo/nolf "#farbe 7,4#"
  356. _gosub ListView_Mask
  357. _gosub LV_Select
  358. _echo/nolf "#reset##SETPOS 'DY',0##down 1#"
  359. _disk text VAK:Mask/'{language}'/ListView.mas
  360. _goto ListView_Menu
  361.  
  362. ListView_Mask:
  363. DN=DN+1
  364. DUMMY=POS'DN'
  365. _echo/nolf "#SETPOS 'DY','DX'#{LIMSPACEON}{TAB 26}{LIMSPACEOFF}#left 26#'DUMMY'"
  366. DX=DX+26
  367. _if/integer DX == 78 then DY=DY+1
  368. _if/integer DX == 78 then DX=0
  369. _if/integer DN == DO then _gosub ListView_MaskRest
  370. _if/integer DN == DO then _return
  371. _goto ListView_Mask
  372.  
  373. ListView_MaskRest:
  374. _if/integer DX == 0 then _return
  375. _echo/nolf "#SETPOS 'DY','DX'#{LIMSPACEON}{TAB 26}{LIMSPACEOFF}"
  376. DX=DX+26
  377. _if/integer DX == 78 then DX=0
  378. _goto ListView_MaskRest
  379.  
  380. ListView_Menu:
  381. _menu/nopmsgs/noecho "" -
  382.  "Q" LV_Quit -
  383.  "X" LV_Quit -
  384. "^R" Punkt_All_List_View -
  385. "^M" LV_Show_Select -
  386.  "H" LV_Help -
  387.  "T" LV_Top_Page -
  388.  "B" LV_End_Page -
  389.  "N" LV_Next_Page -
  390.  "L" LV_Prev_Page -
  391.  "F" LV_First_Page -
  392.  "E" LV_Last_Page -
  393. "^1" LV_UP -
  394. "^2" LV_DOWN -
  395. "^3" LV_LEFT -
  396. "^4" LV_RIGHT
  397.  
  398. ; ------------------------------------------
  399.  
  400. LV_Help:
  401. TPAGE=PAGE
  402. PAGE=9
  403. _gosub Help_Read
  404. PAGE=TPAGE
  405. _goto Punkt_All_List_View
  406.  
  407. LV_Show_Select:
  408. Username=POS'AKT'
  409. _gosub RAW_Show_User
  410. _gosub Key_Wait
  411. _goto Punkt_All_List_View
  412.  
  413. ; ------------------------------------------
  414.  
  415. LV_UP:
  416. _if/integer AKT-3 < 1 then _goto LV_Prev_Page
  417. LAT=AKT
  418. AKT=AKT-3
  419. LX=AX
  420. LY=AY
  421. AY=AY-1
  422. _gosub LV_DeSelect
  423. _gosub LV_Select
  424. _goto ListView_Menu
  425.  
  426. LV_DOWN:
  427. _if/integer AKT+3 > DO then _goto LV_Next_Page
  428. LAT=AKT
  429. AKT=AKT+3
  430. LX=AX
  431. LY=AY
  432. AY=AY+1
  433. _gosub LV_DeSelect
  434. _gosub LV_Select
  435. _goto ListView_Menu
  436.  
  437. LV_LEFT:
  438. _if/integer AKT-1 < 1 then _goto ListView_Menu
  439. LX=AX
  440. LY=AY
  441. _if/integer AX == 0 then AY=AY-1
  442. _if/integer AX == 0 then AX=78
  443. AX=AX-26
  444. LAT=AKT
  445. AKT=AKT-1
  446. _gosub LV_DeSelect
  447. _gosub LV_Select
  448. _goto ListView_Menu
  449.  
  450. LV_RIGHT:
  451. _if/integer AKT+1 > DO then _goto ListView_Menu
  452. LX=AX
  453. LY=AY
  454. _if/integer AX == 52 then AY=AY+1
  455. _if/integer AX == 52 then AX=-26
  456. AX=AX+26
  457. LAT=AKT
  458. AKT=AKT+1
  459. _gosub LV_DeSelect
  460. _gosub LV_Select
  461. _goto ListView_Menu 
  462.  
  463. ; ------------
  464.  
  465. LV_Quit:
  466. _return
  467.  
  468. ; ---------------------------
  469.  
  470. LV_Top_Page:
  471. LAT=AKT
  472. AKT=1
  473. LX=AX
  474. LY=AY
  475. AX=0
  476. AY=4
  477. _gosub LV_DeSelect
  478. _gosub LV_Select
  479. _goto ListView_Menu
  480.  
  481. LV_End_Page:
  482. LAT=AKT
  483. AKT=DO
  484. LX=AX
  485. LY=AY
  486. AY=4
  487. TEST=0
  488. DUM=AKT
  489. _gosub LV_EP_YSel
  490. TEST=AKT-1
  491. _gosub LV_EP_XSel
  492. _gosub LV_DeSelect
  493. _gosub LV_Select
  494. _goto ListView_Menu
  495.  
  496. LV_EP_YSel:
  497. TEST=TEST+3
  498. _if/integer TEST >= DUM then _return
  499. AY=AY+1
  500. _goto LV_EP_YSel
  501.  
  502. LV_EP_XSel:
  503. _if/integer TEST < 3 then AX=26*TEST
  504. _if/integer TEST < 3 then _return
  505. TEST=TEST-3
  506. _goto LV_EP_XSel
  507.  
  508. LV_Next_Page:
  509. _if/integer PAGE == PAGES then _goto ListView_Menu
  510. PAGE=PAGE+1
  511. AX=0
  512. AY=4
  513. AKT=1
  514. _goto Punkt_All_List_View
  515.  
  516. LV_Prev_Page:
  517. _if/integer PAGE == 1 then _goto ListView_Menu
  518. PAGE=PAGE-1
  519. AX=0
  520. AY=4
  521. AKT=1
  522. _goto Punkt_All_List_View
  523.  
  524. LV_First_Page:
  525. PAGE=1
  526. AX=0
  527. AY=4
  528. AKT=1
  529. _goto Punkt_All_List_View
  530.  
  531. LV_Last_Page:
  532. PAGE=PAGES
  533. AX=0
  534. AY=4
  535. AKT=1
  536. _goto Punkt_All_List_View
  537.  
  538. ; -------------------------------------
  539.  
  540. LV_Select:
  541. DUMMY=POS'AKT'
  542. _echo/nolf "#SETPOS 'AY','AX'##farbe 4,6#'DUMMY'"
  543. _return
  544.  
  545. LV_DeSelect:
  546. DUMMY=POS'LAT'
  547. _echo/nolf "#SETPOS 'LY','LX'##farbe 7,4#'DUMMY'
  548. _return
  549.  
  550. ; ------------------------------------------------------------------------
  551. ; ------------------------------------------------------------------------
  552.  
  553. Check_VK:
  554. _extern VAK:VAK.exe -cu "'{name}'"
  555. _disk execute/keep t:Check.tmp
  556. _if/integer CHECK == 1 then VAKTR="No "
  557. _if/integer CHECK == 2 then VAKTR="Yes"
  558. _return
  559.  
  560. ; ------------------------------------------------------------------------
  561.  
  562. Help_Read:
  563. PAGES=12
  564. _goto Help_Read_Menu
  565.  
  566. Help_Read_Menu:
  567. MODE="Help  Page 'PAGE'/'PAGES'"
  568. _gosub UpLines
  569. _disk text VAK:Help/'{language}'/Page'PAGE'.txt
  570. _menu/noecho/nopmsgs "" -
  571.  "Q" HelpQuit -
  572.  "G" GoPage -
  573.  "I" Index -
  574. "^R" Help_Read_Menu -
  575. "^1" FirstPage - 
  576. "^2" LastPage - 
  577. "^3" PageBack - 
  578. "^4" PageForw -
  579.  "E" EditText
  580.  
  581. HelpQuit:
  582. _if "'O5'" == "T" then _goto Quit
  583. _return
  584.  
  585. GoPage:
  586. Mode="Help  Go to a page"
  587. _gosub UpLines
  588. _echo/nolf "Type the pagenumber (max. 'PAGES') : "
  589. _input/maxlength=3/numeric NUMBER
  590. _if "'NUMBER'" == "" then _goto Help_Read_Menu
  591. _if/integer NUMBER > PAGES then _goto Help_Read_Menu
  592. _if/integer NUMBER < 1 then _goto Help_Read_Menu
  593. PAGE=NUMBER
  594. _goto Help_Read_Menu
  595.  
  596. Index:
  597. PAGE=2
  598. _goto Help_Read_Menu
  599.  
  600. FirstPage:
  601. PAGE=1
  602. _goto Help_Read_Menu
  603.  
  604. LastPage:
  605. PAGE=PAGES
  606. _goto Help_Read_Menu
  607.  
  608. PageBack:
  609. _if/integer PAGE == 1 then _goto Help_Read_Menu
  610. PAGE=PAGE-1
  611. _goto Help_Read_Menu
  612.  
  613. PageForw:
  614. _if/integer PAGE == PAGES then _goto Help_Read_Menu
  615. PAGE=PAGE+1
  616. _goto Help_Read_Menu
  617.  
  618. EditText:
  619. _if "'{name}'" != "Demon Driver" then _goto Help_Read_Menu
  620. _disk ed VAK:Help/English/Page'PAGE'.txt
  621. _gosub Key_Wait
  622. _goto Help_Read_Menu
  623.  
  624. ; ------------------------------------------------------------------------
  625.  
  626. Make_List:
  627. Mode="Make new VK-List"
  628. _gosub UpLines
  629. _extern VAK:VAK.exe
  630. NEWLI=1
  631. _gosub Key_Wait
  632. _return
  633.  
  634. ; ----------------------------------
  635.  
  636. Key_Wait:
  637. _echo
  638. _disk text VAK:Mask/'{language}'/Wait.mas
  639. _waitkey
  640. _return
  641.  
  642. ; ----------------------------------
  643.  
  644. FastNew:
  645. _extern copy VAK:sets/VK "mbudir:'{name}'/vk"
  646. _disk edit/lines=6 "mbudir:'{name}'/vk"
  647. _gosub Make_List
  648. _echo/nolf "#reset##cls##home#"
  649. _goto end
  650.  
  651. ; ----------------------------------
  652.  
  653. SysOp:
  654. _if "'OS'" == "F" then _goto MainMask
  655. Mode="SysOp - Menu"
  656. _gosub uplines
  657. _disk text VAK:Mask/'{language}'/SysOp.mas
  658. _menu/nopmsgs "" -
  659. "^M" SysOp -
  660.  "Q" MainMask -
  661.  "F" Force_NewList -
  662.  "E" EditUserVK
  663. _goto MainMask
  664.  
  665. Force_NewList:
  666. Mode="Force NEW VK-List"
  667. _gosub uplines
  668. _extern VAK:VAK.exe
  669. _disk text vak:Mask/'{language}'/Wait.mas
  670. _waitkey "^M"
  671. _goto SysOp
  672.  
  673. EditUserVK:
  674. Mode="Edit User VK"
  675. _gosub Uplines
  676. _echo/nolf "#setpos 4,1#Username : "
  677. _input/maxlength=20 USERNAME
  678. _extern VAK:VAK.exe -cu "'USERNAME'"
  679. _disk execute/keep t:Check.tmp
  680. _echo "'CHECK'"
  681. _if/integer 'CHECK' == 0 then _goto EditUserVK_NoUser
  682. _if/integer 'CHECK' == 1 then _goto EditUserVK_NoVK
  683. _disk edit "mbudir:'USERNAME'/VK"
  684. _disk text vak:Mask/'{language}'/Wait.mas
  685. _waitkey "^M"
  686. _goto SysOp
  687.  
  688. EditUserVK_NoUser:
  689. _gosub Uplines
  690. _echo "^j"
  691. _echo "                             User don`t exsits"
  692. _disk text vak:Mask/'{language}'/Wait.mas
  693. _waitkey
  694. _goto SysOp
  695.  
  696. EditUserVK_NoVK:
  697. Mode="Edit User VK (No VK)"
  698. _gosub Uplines
  699. _echo "                            This User has no VK^J"
  700. _echo/nolf "Make new : N#left 1#"
  701. _menu "" -
  702. "^M" SysOp -
  703.  "N" SysOp -
  704.  "J" EditUserVK_New -
  705.  "Y" EditUserVK_New
  706.  
  707. EditUserVK_New:
  708. _extern copy VAK:Sets/VK "mbudir:'USERNAME'/"
  709. _disk edit "mbudir:'USERNAME'/VK"
  710. _goto SysOp
  711.  
  712.  
  713. ; ----------------------------------
  714.  
  715. End:
  716. _eod
  717.